﻿Public Class LicenseKey

    Private Sub CancelBKey_Click(sender As System.Object, e As System.EventArgs) Handles CancelBKey.Click
        Me.Visible = False
    End Sub

    Private Sub EnterBKey_Click(sender As System.Object, e As System.EventArgs) Handles EnterBKey.Click
        If KeyTextBox.Text = My.Settings.LicenceKey1 Then
            MessageBox.Show("Valid Key")
            Me.Visible = False
            My.Settings.ValidationKey = "Yes"
        Else
            My.Settings.ValidationKey = "No"
            MsgBox("Wrong ProductKey", MsgBoxStyle.Exclamation, "Error")
        End If 
    End Sub
End Class
